home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok03.lha / IFFtoCode / Sources / Img.mod < prev    next >
Text File  |  1993-08-15  |  3KB  |  83 lines
  1. IMPLEMENTATION MODULE Img;
  2.  
  3. FROM SYSTEM IMPORT      WORD;
  4.  
  5. FROM Heap IMPORT        AllocMem;
  6.  
  7. VAR     i   :INTEGER;
  8.  
  9.  
  10.  
  11. BEGIN   (* MAIN *)
  12.  
  13. FOR i:=0 TO   1  DO
  14.   AllocMem(ImgPtr[i],SIZE(ImgPtr[i]^),TRUE);
  15.   ImgPtr[i]^.Pos[0]:=0; 
  16.   ImgPtr[i]^.Pos[1]:=0;
  17.   ImgPtr[i]^.Add[0]:=0;
  18.   ImgPtr[i]^.Add[0]:=0;
  19. END;
  20. Imgheight:= 25;
  21.  
  22. WITH ImgPtr[AIR1]^ DO         (* AIR1 *)
  23.  
  24.    (* Plane 1 *)     (* Plane 2 *)
  25.   Dat[ 0]:=00000H;  Dat[ 1]:=00FC0H;  (* 1*)
  26.   Dat[ 2]:=00F50H;  Dat[ 3]:=01FF0H;  (* 2*)
  27.   Dat[ 4]:=01F68H;  Dat[ 5]:=03FF0H;  (* 3*)
  28.   Dat[ 6]:=03F74H;  Dat[ 7]:=07FE8H;  (* 4*)
  29.   Dat[ 8]:=03FB8H;  Dat[ 9]:=07FE4H;  (* 5*)
  30.   Dat[10]:=07FBAH;  Dat[11]:=0FFF4H;  (* 6*)
  31.   Dat[12]:=07FBAH;  Dat[13]:=0FFF4H;  (* 7*)
  32.   Dat[14]:=03FB8H;  Dat[15]:=0FFE6H;  (* 8*)
  33.   Dat[16]:=04004H;  Dat[17]:=0FFFAH;  (* 9*)
  34.   Dat[18]:=07FBCH;  Dat[19]:=0FFC2H;  (*10*)
  35.   Dat[20]:=07FBCH;  Dat[21]:=0FFC2H;  (*11*)
  36.   Dat[22]:=03FB8H;  Dat[23]:=07F44H;  (*12*)
  37.   Dat[24]:=03FB8H;  Dat[25]:=07844H;  (*13*)
  38.   Dat[26]:=01FB0H;  Dat[27]:=02048H;  (*14*)
  39.   Dat[28]:=00740H;  Dat[29]:=02088H;  (*15*)
  40.   Dat[30]:=00740H;  Dat[31]:=01090H;  (*16*)
  41.   Dat[32]:=00000H;  Dat[33]:=01290H;  (*17*)
  42.   Dat[34]:=00000H;  Dat[35]:=00AA0H;  (*18*)
  43.   Dat[36]:=00000H;  Dat[37]:=00BA0H;  (*19*)
  44.   Dat[38]:=00000H;  Dat[39]:=004C0H;  (*20*)
  45.   Dat[40]:=00000H;  Dat[41]:=007C0H;  (*21*)
  46.   Dat[42]:=00000H;  Dat[43]:=007C0H;  (*22*)
  47.   Dat[44]:=00000H;  Dat[45]:=007C0H;  (*23*)
  48.   Dat[46]:=00000H;  Dat[47]:=007C0H;  (*24*)
  49.   Dat[48]:=00000H;  Dat[49]:=00380H;  (*25*)
  50. END; 
  51.  
  52.  
  53. WITH ImgPtr[AIR2]^ DO         (* AIR2 *)
  54.  
  55.    (* Plane 1 *)     (* Plane 2 *)
  56.   Dat[ 0]:=00620H;  Dat[ 1]:=007E0H;  (* 1*)
  57.   Dat[ 2]:=00DD8H;  Dat[ 3]:=00FF8H;  (* 2*)
  58.   Dat[ 4]:=01BECH;  Dat[ 5]:=01FF8H;  (* 3*)
  59.   Dat[ 6]:=037EEH;  Dat[ 7]:=03FF0H;  (* 4*)
  60.   Dat[ 8]:=037F6H;  Dat[ 9]:=03FF8H;  (* 5*)
  61.   Dat[10]:=06FF7H;  Dat[11]:=07FF8H;  (* 6*)
  62.   Dat[12]:=06FFBH;  Dat[13]:=07FFCH;  (* 7*)
  63.   Dat[14]:=02FFAH;  Dat[15]:=07FF5H;  (* 8*)
  64.   Dat[16]:=047F1H;  Dat[17]:=07FFEH;  (* 9*)
  65.   Dat[18]:=0680BH;  Dat[19]:=07FF4H;  (*10*)
  66.   Dat[20]:=06FFBH;  Dat[21]:=07FC4H;  (*11*)
  67.   Dat[22]:=037FAH;  Dat[23]:=03F84H;  (*12*)
  68.   Dat[24]:=037F6H;  Dat[25]:=03C08H;  (*13*)
  69.   Dat[26]:=017F4H;  Dat[27]:=00808H;  (*14*)
  70.   Dat[28]:=003E0H;  Dat[29]:=00C08H;  (*15*)
  71.   Dat[30]:=003E0H;  Dat[31]:=00C10H;  (*16*)
  72.   Dat[32]:=00000H;  Dat[33]:=00650H;  (*17*)
  73.   Dat[34]:=00000H;  Dat[35]:=00660H;  (*18*)
  74.   Dat[36]:=00000H;  Dat[37]:=003E0H;  (*19*)
  75.   Dat[38]:=00000H;  Dat[39]:=00320H;  (*20*)
  76.   Dat[40]:=00000H;  Dat[41]:=003E0H;  (*21*)
  77.   Dat[42]:=00000H;  Dat[43]:=003E0H;  (*22*)
  78.   Dat[44]:=00000H;  Dat[45]:=003E0H;  (*23*)
  79.   Dat[46]:=00000H;  Dat[47]:=003E0H;  (*24*)
  80.   Dat[48]:=00000H;  Dat[49]:=001C0H;  (*25*)
  81. END; 
  82. END Img.
  83.